home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 38
/
Digital_Talk_38_1999-08-15_Digital_Talk_de_Side_B.d64
/
viewer roulette
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
122 lines
1 f$="bd-950915"
100 :
105 rem *** autor: franz fohler
110 rem *** date: 16.03.1999
120 rem *** hotline: 09663719
125 :
130 dim c$(600)
135 dim cu$( 38)
140 dim cp$(600)
145 dim cz(600)
150 :
155 print"[147]"; : poke 53280,6
160 print"[221]cup[221]sw. [221]pair [221]passe[221]dutzend[221]colone [221]"
165 print"[221]nr.[221] rot[221] imp.[221]manq.[221] 1 2 3 [221] 1 2 3 [221]"
170 print"[171][192][192][192][219][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][179]"
175 for a = 0 to 38 : read cu$( a) : next
180 for a = 4 to 24 : print cu$(38) : next
185 gosub 950
190 :
200 i = 0
205 k = 0
210 open 1,8,8,f$+",s,r"
215 :
250 i = i +1
260 input#1,c$
270 :
300 if c$ = "-" then 350
310 cz(i) = val(c$)
320 cp$(i) = right$("00"+mid$(str$(i-k),2),3)
330 goto 400
340 :
350 cz(i) = 37
360 cp$(i) = " "
370 k = k + 1
380 :
400 if st = 0 then 250
410 zm = i
420 close 1
430 i = 1
500 :
510 print ""
520 for z = -10 to 10
530 if z <> 0 then print chr$(146);
540 if i + z > zm then print cu$(38) : goto 590
550 if i + z < 1 then print cu$(38) : goto 590
560 if i = 1 and z = 0 then gosub 950
570 if z = 0 then print chr$( 18);
580 print "[221]";cp$(i+z);cu$(cz(i+z))
590 next z
600 :
610 a$ = ""
620 get a$ : if a$ = "" then 620
630 :
640 if a$ = "[137]" then i = 1
650 if a$ = "[133]" then i = i -10
660 if a$ = "[134]" then i = i - 1
670 if a$ = "[135]" then i = i + 1
680 if a$ = "[136]" then i = i +10
690 if a$ = "[140]" then i = zm
700 if i < 1 then i = 1
710 if i > zm then i = zm
720 goto 510
730 end
740 :
900 data "[221] 00 [221] - - [221] - - [221] - - - [221] - - - [221]"
901 data "[221] 1[221] - * [221] * - [221] * - - [221] * - - [221]"
902 data "[221] 2 [221] * - [221] * - [221] * - - [221] - * - [221]"
903 data "[221] 3[221] - * [221] * - [221] * - - [221] - - * [221]"
904 data "[221] 4 [221] * - [221] * - [221] * - - [221] * - - [221]"
905 data "[221] 5[221] - * [221] * - [221] * - - [221] - * - [221]"
906 data "[221] 6 [221] * - [221] * - [221] * - - [221] - - * [221]"
907 data "[221] 7[221] - * [221] * - [221] * - - [221] * - - [221]"
908 data "[221] 8 [221] * - [221] * - [221] * - - [221] - * - [221]"
909 data "[221] 9[221] - * [221] * - [221] * - - [221] - - * [221]"
910 data "[221]10 [221] * - [221] * - [221] * - - [221] * - - [221]"
911 data "[221]11 [221] - * [221] * - [221] * - - [221] - * - [221]"
912 data "[221] 12[221] * - [221] * - [221] * - - [221] - - * [221]"
913 data "[221]13 [221] - * [221] * - [221] - * - [221] * - - [221]"
914 data "[221] 14[221] * - [221] * - [221] - * - [221] - * - [221]"
915 data "[221]15 [221] - * [221] * - [221] - * - [221] - - * [221]"
916 data "[221] 16[221] * - [221] * - [221] - * - [221] * - - [221]"
917 data "[221]17 [221] - * [221] * - [221] - * - [221] - * - [221]"
918 data "[221] 18[221] * - [221] * - [221] - * - [221] - - * [221]"
919 data "[221] 19[221] - * [221] - * [221] - * - [221] * - - [221]"
920 data "[221]20 [221] * - [221] - * [221] - * - [221] - * - [221]"
921 data "[221] 21[221] - * [221] - * [221] - * - [221] - - * [221]"
922 data "[221]22 [221] * - [221] - * [221] - * - [221] * - - [221]"
923 data "[221] 23[221] - * [221] - * [221] - * - [221] - * - [221]"
924 data "[221]24 [221] * - [221] - * [221] - * - [221] - - * [221]"
925 data "[221] 25[221] - * [221] - * [221] - - * [221] * - - [221]"
926 data "[221]26 [221] * - [221] - * [221] - - * [221] - * - [221]"
927 data "[221] 27[221] - * [221] - * [221] - - * [221] - - * [221]"
928 data "[221]28 [221] * - [221] - * [221] - - * [221] * - - [221]"
929 data "[221]29 [221] - * [221] - * [221] - - * [221] - * - [221]"
930 data "[221] 30[221] * - [221] - * [221] - - * [221] - - * [221]"
931 data "[221]31 [221] - * [221] - * [221] - - * [221] * - - [221]"
932 data "[221] 32[221] * - [221] - * [221] - - * [221] - * - [221]"
933 data "[221]33 [221] - * [221] - * [221] - - * [221] - - * [221]"
934 data "[221] 34[221] * - [221] - * [221] - - * [221] * - - [221]"
935 data "[221]35 [221] - * [221] - * [221] - - * [221] - * - [221]"
936 data "[221] 36[221] * - [221] - * [221] - - * [221] - - * [221]"
937 data "[221]----[221] [221] [221] [221] [221]"
938 data "[221] [221] [221] [221] [221] [221] [221]"
950 print""
951 print tab(2);"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][174]"
952 print tab(2);"[221] [221]f1: << [221]"
953 print tab(2);"[221] fragen? [221] f2: eins[221]"
954 print tab(2);"[221] wuensche? [221]f3: < [221]"
955 print tab(2);"[221] anregungen? [221] [221]"
956 print tab(2);"[221] kritik? [221]f5: > [221]"
957 print tab(2);"[221] hotline / support: [221] [221]"
958 print tab(2);"[221] tel. 09663719 [221]f7: >> [221]"
959 print tab(2);"[221] franz [221] f8: last[221]"
960 print tab(2);"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]"
965 return
970 :
996 : "der file-name muss manuel in"
997 : " der ersten zeile eingegeben"
998 : " we7
20256 pen1,8,15,"s:tree.bas":close1:save"tree.bas",8
1 [143] by ske